home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed9.d64 / exponents (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  15KB  |  720 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,0:POKEUX,0
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  31. 305 REM PROJECT DIRECTOR: FRANK WINTER
  32. 320 REM PROGRAM NAME: EXPONENTS
  33. 330 REM WRITTEN BY: DENNIS KASKAN
  34. 340 REM REVISED BY: MARK LOVELL
  35. 350 REM UPDATED BY: BILL CUMBERLAND
  36. 400 PRINT"[147]":POKEUT,UL%:POKEUY,0:POKEUX,0:POKE646,13
  37. 405 PRINT"              [201]NSTRUCTIONS  [146]
  38. 415 [153]"   (null)HIS PROGRAM IS A TUTORIAL ON           EXPONENTS.
  39. 420 PRINT"   [201]T TEACHES HOW TO MULTIPLY AND
  40. 425 [153]"   DIVIDE EXPONENTS.
  41. 430 PRINT"   [193] SHORT QUIZ IS INCLUDED."
  42. 495 GOSUB830:RETURN
  43. 500 REM <YES> SOUND
  44. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  45. 510 POKE54296,15:POKE54277,42:POKE54278,250
  46. 515 POKE54276,23:POKE54273,23:POKE54272,191
  47. 520 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  48. 525 POKE54296,0:RETURN
  49. 530 REM <YES> SOUND
  50. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  51. 540 POKE54296,15:POKE54277,18:POKE54278,242
  52. 545 POKE54276,33:POKE54273,4:POKE54272,148
  53. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  54. 555 POKE54296,0:RETURN
  55. 560 REM <BLIP> SOUND
  56. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  57. 570 POKE54296,7:POKE54277,42:POKE54278,250
  58. 575 POKE54276,23:POKE54273,23:POKE54272,191
  59. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  60. 585 POKE54296,0:RETURN
  61. 590 FORT=1TO500:NEXT:RETURN
  62. 591 FORT=1TO1000:NEXT:RETURN
  63. 592 FORT=1TO2000:NEXT:RETURN
  64. 595 FORT=1TO5000:NEXT:RETURN
  65. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  66. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB590
  67. 802 PRINT"           FOR C 64 COMPUTERS":GOSUB590
  68. 803 PRINT"                                        [146]";
  69. 804 PRINT"                                        [146]";
  70. 805 PRINT"                                        [146]";
  71. 806 PRINT"               EXPONENTS                [146]";
  72. 807 PRINT"                                        [146]";
  73. 808 PRINT"                                        [146]";
  74. 809 PRINT"                                        [146]":GOSUB591:GOSUB560
  75. 810 PRINT"           INSTRUCTIONS?  Y/N
  76. 811 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 811
  77. 812 [139]R$[178]"Y"[167][141]400
  78. 813 [153]"LOAD  AND AWAY WE GO .....":[141]591:[141]500:[141]590
  79. 814 [137]1000
  80. 830 [141]591:[141]560
  81. 835 [151]UN,0:[153][200](UD$,24);"PRINT (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAITLIST"
  82. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  83. 845 [142]
  84. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  85. 855 [153]" --------------------------------------"
  86. 860 [143]  IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
  87. 865 UH=0:PRINT"":RETURN
  88. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  89. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  90. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  91. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  92. 905 UD$="":UP$="                                      "
  93. 909 RETURN
  94. 910 GOSUB900:PRINT"[147] "
  95. 920 GOTO800
  96. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
  97. 1003 REM TAP AT 1035,1310
  98. 1004 ZP=0:ZQ=0:V=0:M=0
  99. 1030 POKE UT,UL%:Q=0
  100. 1035 IF ZP=1 THENPRINT"":GOTO 4120
  101. 1169 UT$=" [197]XPONENTS":UP=0
  102. 1200 PRINT"[147][160][212]HIS PROGRAM WILL INTRODUCE YOU TO
  103. 1210 [153]" THE BASIC IDEAS OF EXPONENTS.
  104. 1340 GOSUB830
  105. 1350 PRINT"[147]  [215]E WILL START NOW.":GOSUB592
  106. 1400 GOSUB 5640
  107. 1410 PRINT"[147]"
  108. 1420 PRINTTAB(15)"[197][216][208][207][206][197][206][212][211]"
  109. 1430 PRINTTAB(15)"---------"
  110. 1440 PRINT"
  111. 1450 [137] 1490
  112. 1460 [153]"LOAD
  113. 1470 X=X+1
  114. 1480 IF X=2 THEN 6880
  115. 1490 PRINT"      [197]XPONENTS ARE USED TO SHOW
  116. 1500 [153]"      HOW MANY TIMES A NUMBER IS"
  117. 1510 [153]" MULTIPLIED BY ITSELF.      "
  118. 1520 [141]830:[141]850
  119. 1530 [153]" RIGHT$NSTEAD OF WRITING "
  120. 1540 [153] [163]8);"2*2*2*2*2,"
  121. 1550 [153]" (null)E WRITE:"
  122. 1560 [153][163]12)"5"
  123. 1570 [153][163]11)"2"
  124. 1580 [153]"
  125. 1590 PRINT" THE 5 TELLS US THAT WE ARE TO"
  126. 1600 PRINT" MULTIPLY THE 2 BY ITSELF 5 TIMES."
  127. 1610 GOSUB830
  128. 1620 GOSUB850:PRINT" [200]OW WOULD YOU WRITE "
  129. 1630 PRINTTAB(8)"3*3*3*3"
  130. 1640 PRINT" [215]HAT IS THE BASE?  [157]";
  131. 1650 US$="0123456789":UL=1:GOSUB35:A=VAL(UR$)
  132. 1660 PRINT" [215]HAT IS THE EXPONENT?  [157]";
  133. 1670 US$="0123456789":UL=1:GOSUB35:B=VAL(UR$)
  134. 1680 PRINT""
  135. 1690 PRINTTAB(15)""B""
  136. 1700 PRINTTAB(14)""A""
  137. 1710 PRINT
  138. 1730 IF A<>3 THEN 6620
  139. 1740 IF B<>4 THEN 6620
  140. 1750 GOSUB 7160
  141. 1770 GOSUB850:PRINT"[160][160][160][205][213][204][212][201][208][204][201][195][193][212][201][207][206][160][207][198][160][197][216][208][207][206][197][206][212][211]
  142. 1780 [153]"   ---------------------------
  143. 1790 PRINT" [197]XPONENTS CAN BE COMBINED"
  144. 1800 PRINT" TO PRODUCE A SIMPLER ANSWER."
  145. 1810 GOSUB830
  146. 1820 GOSUB850:PRINT" [198]OR EXAMPLE;"
  147. 1830 GOSUB 7090
  148. 1840 PRINT" CAN BE SIMPLIFIED LIKE THIS;"
  149. 1850 PRINT
  150. 1860 PRINTTAB(11)" [145][145][145][145][145]="
  151. 1870 PRINT
  152. 1880 PRINTTAB(12)"= 2*2*2 *[160]2*2*2*2
  153. 1890 [153]
  154. 1900 [153][163]15)"7
  155. 1910 PRINTTAB(12)"= 2
  156. 1920 [141]830
  157. 1930 [141]850:[153]" ATNLSO,"
  158. 1940 [153][163]4)"6    3
  159. 1950 PRINTTAB(3)"3  * 3  =
  160. 1960 [153]""
  161. 1970 [153][163]11)"= 3*3*3*3*3*3 * 3*3*3
  162. 1980 PRINT
  163. 1990 PRINTTAB(15)"9
  164. 2000 [153][163]11)"= 3
  165. 2010 GOSUB830
  166. 2020 GOSUB850:PRINT" [211]INCE,"
  167. 2030 PRINTTAB(4)"3    4    7
  168. 2040 [153][163]3)"2  * 2  = 2   AND"
  169. 2050 [153] ""
  170. 2060 [153][163]4)"6    3    9
  171. 2070 PRINTTAB(3)"3  * 3  = 3  ,"
  172. 2080 PRINT" YOU SHOULD NOTICE THAT THERE"
  173. 2090 PRINT" IS A PATTERN."
  174. 2100 GOSUB830
  175. 2110 GOSUB850:PRINT" [215]ITHOUT USING PENCIL AND PAPER "
  176. 2120 PRINT" WHAT IS THE MISSING EXPONENT?":GOSUB560
  177. 2130 PRINTTAB(4)"5    3
  178. 2140 [153][163]3)"4  * 4  = 4
  179. 2150 PRINT
  180. 2160 PRINT" ? ";:US$="0123456789":UL=1:GOSUB35:F=VAL(UR$)
  181. 2170 PRINTTAB(13)"[145][145][145][145]";F;""
  182. 2180 IF F<>8 THEN 7280
  183. 2190 :
  184. 2200 GOSUB 7130
  185. 2210 REM
  186. 2220 GOSUB850: PRINT"[160][160]     [160][196][201][214][201][211][201][207][206][160][207][198][160][197][216][208][207][206][197][206][212][211]
  187. 2230 [153]"        ---------------------
  188. 2240 PRINT" [208]OWERS CAN BE EASILY DIVIDED."
  189. 2250 PRINT" FOR EXAMPLE;"
  190. 2260 PRINT
  191. 2270 PRINTTAB(4)"5
  192. 2280 [153][163]3)"2
  193. 2290 PRINTTAB(3)"---   CAN BE SIMPLIFIED AS FOLLOWS"
  194. 2300 PRINTTAB(4)"2
  195. 2310 [153][163]3)"2
  196. 2330 GOSUB 7190
  197. 2340 GOSUB830
  198. 2350 GOSUB850:PRINT"     [211]INCE THE OPERATION ON TOP "
  199. 2360 PRINT"     AND BOTTOM IS MULTIPLICATION,"
  200. 2370 PRINT"     WE CAN CANCEL TWO 2'S."
  201. 2380 GOSUB830
  202. 2390 GOSUB850:PRINT " WE GET THIS:"
  203. 2400 GOSUB 7190
  204. 2410 PRINTTAB(9)"2*2[146]*2*2*2
  205. 2420 [153][163]7)"= ---------
  206. 2430 PRINTTAB(9)"2*2[146]
  207. 2440 [153] " (null)OTE: THE NUMBERS LIT UP REPRESENT"
  208. 2450 [153]" THE NUMBERS THAT WE'LL CANCEL."
  209. 2470 [153][163]7)"=CLOSE2*2*2
  210. 2480 PRINT
  211. 2490 PRINTTAB(10)"3
  212. 2500 [153][163]7)"=CLOSE2
  213. 2510 GOSUB830
  214. 2520 GOSUB850:PRINT" [193]NOTHER EXAMPLE WOULD BE:"
  215. 2530 PRINTTAB(4)"7
  216. 2540 [153][163]3)"4
  217. 2550 PRINTTAB(3)"--- =
  218. 2560 [153][163]4)"5
  219. 2570 PRINTTAB(3)"4
  220. 2580 [153][163]9)"ONONONON4*4*4*4*4*4*4
  221. 2590 PRINTTAB(7)"= -----------
  222. 2600 [153]
  223. 2610 [153][163]9)"4*4*4*4*4
  224. 2621 PRINT""
  225. 2630 PRINTTAB(9)"4*4*4*4*4[146]*4*4
  226. 2640 [153][163]7)"= -------------
  227. 2650 PRINTTAB(9)"4*4*4*4*4[146]
  228. 2670 [153][163]7)"= 4*4
  229. 2680 PRINT""
  230. 2690 PRINTTAB(10)"2
  231. 2700 [153][163]7)"= 4
  232. 2710 GOSUB830
  233. 2720 GOSUB850:PRINT" [211]INCE: "
  234. 2730 PRINTTAB(4)"5
  235. 2740 [153][163]3)"2      3
  236. 2750 PRINTTAB(3)"--- = 2   , AND
  237. 2760 [153][163]4)"2
  238. 2770 PRINTTAB(3)"2
  239. 2780 [153]""
  240. 2790 [153][163]4)"7
  241. 2800 PRINTTAB(3)"4      2
  242. 2810 [153][163]3)"--- = 4   ,
  243. 2820 PRINTTAB(4)"5
  244. 2830 [153][163]3)"4
  245. 2840 PRINT" YOU SHOULD NOTICE THAT "
  246. 2850 PRINT" THERE IS A PATTERN."
  247. 2860 GOSUB830:I=0
  248. 2870 GOSUB850:PRINT" [215]ITHOUT USING PENCIL AND PAPER "
  249. 2880 PRINT" WHAT IS THE MISSING EXPONENT?":GOSUB560
  250. 2890 PRINTTAB(4)"8
  251. 2900 [153][163]3)"3
  252. 2910 PRINTTAB(3)"--- = 3
  253. 2920 [153][163]4)"5
  254. 2930 PRINTTAB(3)"3"
  255. 2940 PRINT" [205]ISSING EXPONENT? ";
  256. 2950 :US$="0123456789":UL=1:GOSUB35:T=VAL(UR$)
  257. 2960 PRINTTAB(9)"[145][145][145][145][145][145]"T""
  258. 2970 IF T=3 THEN 3010
  259. 2980 GOSUB 7000
  260. 2990 GOSUB 6970
  261. 3000 GOTO 2870
  262. 3010 GOSUB 7130
  263. 3020 GOSUB850:PRINT" [209]UESTION # 2 "
  264. 3030 PRINTTAB(4)"9
  265. 3040 [153][163]3)"8
  266. 3050 PRINTTAB(3)"--- = 8
  267. 3060 [153][163]4)"2
  268. 3070 PRINTTAB(3)"8
  269. 3080 [141]560:[153]" (null)HAT IS THE (null)ISSING EXPONENT? ";
  270. 3090 :US$[178]"0123456789":UL[178]1:[141]35:G[178][197](UR$)
  271. 3100 [153][163]9)"ONONONONONON"G""
  272. 3110 [139] G[178]7 [167] 3170
  273. 3120 [153]"ONON";:[141] 6550
  274. 3130 J[178]J[170]1
  275. 3140 [139] J[178]2 [167][129]QQ[178]1[164]100:[130]QQ:[137]3180
  276. 3150 [141] 6970
  277. 3160 [137] 3020
  278. 3170 [141] 7130
  279. 3180 [141]850:[153]"   PEEKY NOW YOU HAVE SEEN SEVERAL"
  280. 3190 [153]"   IMPORTANT CHARACTERISTICS OF"
  281. 3200 [153]"   EXPONENTS."
  282. 3210 [153]"   (null)HESE NEXT TWO QUESTIONS"
  283. 3220 [153]"   WILL DETERMINE IF YOU"
  284. 3230 [153]"   UNDERSTAND THEM."
  285. 3240 [141]830
  286. 3250 [141]850:[153]" (null)HEN ANSWERING THE NEXT TWO"
  287. 3260 [153]" QUESTIONS, SIMPLY TYPE THE FIRST"
  288. 3270 [153]" LETTER OF THE WORD YOU CHOSE."
  289. 3280 [153]" (null)UESTION # 1"
  290. 3290 [153] " (null)HEN DIVIDING, WE"
  291. 3300 [153] "                  ----------
  292. 3310 PRINT " THE EXPONENTS."
  293. 3320 PRINT " [195]HOICES: A[146]DD, S[146]UBTRACT, M[146]ULTIPLY, OR             D[146]IVIDE.
  294. 3330 V[178]V[170]1
  295. 3340 [139] V[178]3 [167] 3640
  296. 3350 [153]" ";:US$[178]"ASMD":UL[178]1:[141]35:L$[178]UR$:[153]"ON  "
  297. 3360 [139] L$[179][177]"S"[167] [137] 3420
  298. 3370 Z1$[178]"SUBTRACT":[141] 7500
  299. 3380 :
  300. 3390 [153]" (null)HAT'S RIGHT!":[141]500
  301. 3400 [141]830
  302. 3410 [137] 3670
  303. 3420 [139] L$[179][177]"A"[167] [137] 3490
  304. 3430 Z1$[178]"   ADD":[141] 7500
  305. 3440 :
  306. 3450 [153]" (null)HAT'S WRONG.":[141]530
  307. 3460 [141]830
  308. 3470 [141] 6240
  309. 3480 [137]3250
  310. 3490 [139] L$[179][177]"M"[167] [137] 3560
  311. 3500 Z1$[178]"MULTIPLY":[141] 7500
  312. 3520 [153]" (null)HAT'S WRONG! ":[141]530
  313. 3530 [141]860:[141]830
  314. 3540 [141] 6240
  315. 3550 [137] 3250
  316. 3560 [139] L$[179][177]"D"[167] [137] 3630
  317. 3570 Z1$[178]" STR$IVIDE":[141] 7500
  318. 3580 :
  319. 3590 [153]" (null)HAT'S WRONG!":[141]530
  320. 3600 [141]860:[141]830
  321. 3610 [141] 6240
  322. 3620 [137] 3250
  323. 3630 [137] 3250
  324. 3640 [153] " (null)HE ANSWER IS (null)(null)PEEK(null)(null)ATNLEN(null)."
  325. 3650 Z1$[178]"(null)UBTRACTWAIT":[141] 7500
  326. 3660 [141]830
  327. 3670 [141]850:[153]" (null)UESTION # 2"
  328. 3680 [153]" (null)HEN MULTIPLYING, WE
  329. 3690 PRINT"                     ---------"
  330. 3700 PRINT" THE EXPONENTS."
  331. 3710 PRINT" [195]HOICES: A[146]DD, S[146]UBTRACT, M[146]ULTIPLY, OR             D[146]IVIDE."
  332. 3720 M=M+1
  333. 3730 IF M=3 THEN 4090
  334. 3740 PRINT" ";:US$="ASMD":UL=1:GOSUB35:U$=UR$
  335. 3750 IF U$<>"A" THEN 3810
  336. 3760 Z1$="ADD":GOSUB 7550
  337. 3770 :
  338. 3780 PRINT" [212]HAT'S RIGHT.":GOSUB500
  339. 3790 GOSUB830
  340. 3800 GOTO 4120
  341. 3810 IF U$<>"S"THEN 3900
  342. 3820 Z1$="SUBTRACT":GOSUB 7550
  343. 3830 :
  344. 3840 :
  345. 3850 PRINT" [212]HAT'S WRONG.":GOSUB530
  346. 3860 PRINT"
  347. 3870 [141]830
  348. 3880 [141] 6400
  349. 3890 [137] 3670
  350. 3900 [139] U$[179][177]"M" [167] 3990
  351. 3910 Z1$[178]"MULTIPLY":[141] 7550
  352. 3920 :
  353. 3930 :
  354. 3940 [153]" (null)HAT'S WRONG!":[141]530
  355. 3950 [153]"
  356. 3960 GOSUB830
  357. 3970 GOSUB 6400
  358. 3980 GOTO 3670
  359. 3990 IF U$<>"D" THEN 4080
  360. 4000 Z1$="  DIVIDE":GOSUB 7550
  361. 4010 :
  362. 4020 :
  363. 4030 PRINT" [212]HAT'S WRONG!":GOSUB530
  364. 4040 PRINT"
  365. 4050 [141]830
  366. 4060 [141] 6400
  367. 4070 [137] 3670
  368. 4080 [137] 3740
  369. 4090 Z1$[178]"ADDWAIT":[141] 7550:[153]" (null)HE ANSWER IS ATNSTR$STR$!
  370. 4100 PRINT"               ---
  371. 4110 [141]830
  372. 4120 :
  373. 4130 [141]850:[153]" (null)UESTION # 1"
  374. 4160 [153][163]5)"7    2
  375. 4170 PRINTTAB(4)"3  * 3  = 3
  376. 4180 [153]" VALXPONENT? ";:US$[178]"0123456789":UL[178]1:[141]35:M[178][197](UR$)
  377. 4190 :
  378. 4200 Z1$[178]UR$:[141] 7700
  379. 4210 [153]"
  380. 4220 IF M<>9 THEN 4260
  381. 4230 GOSUB 5550
  382. 4240 GOSUB 6520
  383. 4250 GOTO 4310
  384. 4260 GOSUB 6500
  385. 4270 PRINT" [212]HE ANSWER IS 9."
  386. 4280 Z1$="9[146]":GOSUB 7600
  387. 4290 :
  388. 4300 GOSUB830
  389. 4310 GOSUB850:PRINT" [209]UESTION # 2"
  390. 4320 PRINTTAB(5)"8    5
  391. 4330 [153][163]4)"7  * 7  = 7
  392. 4340 PRINT" [197]XPONENT? ";:US$="0123456789":UL=2:GOSUB35:N=VAL(UR$)
  393. 4350 :
  394. 4360 Z1$=UR$:GOSUB 7700
  395. 4370 PRINT"
  396. 4380 [139] N[179][177]13 [167] 4420
  397. 4390 [141] 5550
  398. 4400 [141] 6520
  399. 4410 [137] 4460
  400. 4420 [141] 6500
  401. 4430 [153]" (null)HE ANSWER IS 13."
  402. 4440 Z1$[178]"13WAIT":[141] 7600
  403. 4450 [141]830
  404. 4460 [141]850:[153]" (null)UESTION # 3
  405. 4470 PRINTTAB(5)"6      4
  406. 4480 [153][163]3)"10  * 10  = 10
  407. 4490 PRINT" [197]XPONENT? ";:US$="0123456789":UL=2:GOSUB35:B=VAL(UR$)
  408. 4500 Z1$=UR$:GOSUB 7700
  409. 4530 IF B<>10 THEN 4570
  410. 4540 GOSUB 5550
  411. 4550 GOSUB 6520
  412. 4560 GOTO 4610
  413. 4570 GOSUB 6500
  414. 4580 PRINT" [212]HE ANSWER IS 10."
  415. 4590 Z1$="10[146]":GOSUB 7600
  416. 4600 GOSUB830
  417. 4610 :
  418. 4620 :
  419. 4630 GOSUB850:PRINT" [209]UESTION # 4"
  420. 4640 PRINTTAB(3)"2    5    2
  421. 4650 [153][163]2)"2  * 2  * 2  = 2
  422. 4660 PRINT" [197]XPONENT? ";:US$="0123456789":UL=1:GOSUB35:V=VAL(UR$)
  423. 4670 Z1$=UR$:GOSUB 7700
  424. 4700 IF V<>9 THEN 4740
  425. 4710 GOSUB 5550
  426. 4720 GOSUB 6520
  427. 4730 GOTO 4790
  428. 4740 GOSUB 6500
  429. 4750 PRINT" [212]HE ANSWER IS 9."
  430. 4760 Z1$="9[146]":GOSUB7600
  431. 4770 GOSUB830
  432. 4790 GOSUB850:PRINT" [209]UESTION # 5"
  433. 4800 PRINT"   2    5    1    7
  434. 4810 [153]"  4  * 4  * 4  * 4  = 4
  435. 4820 PRINT" [197]XPONENT? ";:US$="0123456789":UL=2:GOSUB35:C=VAL(UR$)
  436. 4830 Z1$=UR$:GOSUB 7700
  437. 4860 IF C<>15 THEN 4900
  438. 4870 GOSUB 5550
  439. 4880 GOSUB 6520
  440. 4890 GOTO 4950
  441. 4900 GOSUB 6500
  442. 4910 PRINT" [212]HE ANSWER IS 15."
  443. 4920 Z1$="15[146]":GOSUB 7600
  444. 4930 PRINT"
  445. 4940 [141]830
  446. 4950 [141]850:[153]" (null)UESTION # 6"
  447. 4960 :
  448. 4970 :
  449. 4980 :
  450. 4990 [153][163]5)"7
  451. 5000 PRINTTAB(4)"5
  452. 5010 [153][163]4)"--- = 5
  453. 5020 PRINTTAB(5)"2
  454. 5030 [153][163]4)"5
  455. 5040 PRINT" [197]XPONENT? ";:US$="0123456789":UL=1:GOSUB35:X=VAL(UR$)
  456. 5050 Z1$=UR$:GOSUB 7700
  457. 5060 :
  458. 5070 :
  459. 5080 IF X<>5 THEN 5120
  460. 5090 GOSUB 5550
  461. 5100 GOSUB 6520
  462. 5110 GOTO 5160
  463. 5120 GOSUB 6500
  464. 5130 PRINT" [212]HE ANSWER IS 5."
  465. 5140 Z1$="5[146]":GOSUB 7600
  466. 5150 GOSUB830
  467. 5160 GOSUB850:PRINT" [209]UESTION # 7"
  468. 5170 PRINTTAB(5)"21
  469. 5180 [153][163]4)"2
  470. 5190 PRINTTAB(4)"---- = 2
  471. 5200 [153][163]5)"15
  472. 5210 PRINTTAB(4)"2
  473. 5220 [153]" VALXPONENT? ";:US$[178]"0123456789H":UL[178]1:[141]35:Z[178][197](UR$)
  474. 5230 :
  475. 5240 Z1$[178]UR$:[141] 7700
  476. 5250 :
  477. 5260 [139] Z[179][177]6 [167] 5300
  478. 5270 [141] 5550
  479. 5280 [141] 6520
  480. 5290 [137] 5350
  481. 5300 [141] 6500
  482. 5310 [153]" (null)HE ANSWER IS 6."
  483. 5320 Z1$[178]"6WAIT":[141] 7600
  484. 5330 :
  485. 5340 [141]830
  486. 5350 [141]850:[153]" (null)UESTION # 8"
  487. 5360 [153][163]6)"12
  488. 5370 PRINTTAB(4)"10
  489. 5380 [153][163]4)"---- = 10
  490. 5390 PRINTTAB(6)"11
  491. 5400 [153][163]4)"10
  492. 5410 PRINT" [197]XPONENT? ";:US$="0123456789":UL=1:GOSUB35:K=VAL(UR$)
  493. 5420 :
  494. 5430 PRINTTAB(13)"[145][145][145][145][145]"K""
  495. 5440 PRINT"
  496. 5450 [139] K[179][177]1 [167] 5490
  497. 5460 [141] 5550
  498. 5470 [141] 6520
  499. 5480 [137] 5530
  500. 5490 [141] 6500
  501. 5500 [153]" (null)HE ANSWER IS 1."
  502. 5510 [153][163]14)"ONONONONONONONONONONONON1WAIT     "
  503. 5520 [141]830
  504. 5530 [137] 5570
  505. 5540 [143]
  506. 5550 Q[178]Q[170]1
  507. 5560 [142]
  508. 5570 [141]850:[153]" (null)OU SCORED "Q" OUT OF 8."
  509. 5580 :
  510. 5590 [141]830
  511. 5600 [141]850:[153]" LENLEFT$(null)RIGHT$LENVAL:
  512. 5605 PRINT" [208]RESS  1 [146] TO REPEAT THIS PROGRAM
  513. 5610 [153]" (null)RESS  9 WAIT TO RETURN TO (null)VAL(null)(null)
  514. 5615 GETR$:IFR$<>"1"ANDR$<>"9"THEN5615
  515. 5620 IFR$="1"THENRESTORE:GOTO800
  516. 5625 REM
  517. 5630 PRINT"[147] [210]ETURNING TO THE DISK MENU."
  518. 5635 LOAD"MENU",8
  519. 5636 RUN
  520. 5637 END
  521. 5640 GOSUB850:PRINT" [212]HIS TERM:";
  522. 5650 :
  523. 5660 PRINTTAB(25)"***
  524. 5670 [153][163]27)"*
  525. 5680 PRINTTAB(26)"**
  526. 5690 [153][163]13)"********      *
  527. 5700 PRINTTAB(13)"*           ***
  528. 5710 [153][163]13)"*
  529. 5720 PRINTTAB(13)"******
  530. 5730 [153][163]19)"*
  531. 5740 PRINTTAB(20)"*
  532. 5750 [153][163]20)"*
  533. 5760 PRINTTAB(13)"*     *
  534. 5770 [153][163]14)"*****
  535. 5780 PRINT" IS CALLED A POWER,"
  536. 5790 PRINT"             -----
  537. 5800 [153]" WHERE 5 IS THE BASE, AND"
  538. 5810 [153]"                ----";
  539. 5820 [153]"ON, 3 IS THE EXPONENT."
  540. 5830 [153]"ON"[166]31)"--------"
  541. 5840 :
  542. 5850 [141]830
  543. 5860 [141]850:[153]" RIGHT$N THIS TERM;"
  544. 5870 [153][163]25)"****
  545. 5880 PRINTTAB(28)"*
  546. 5890 [153][163]27)"*
  547. 5900 PRINTTAB(22)"*   *
  548. 5910 [153][163]21)"**   *
  549. 5920 PRINTTAB(20)"* *
  550. 5930 [153][163]19)"*  *
  551. 5940 PRINTTAB(18)"*   *
  552. 5950 [153][163]17)"********
  553. 5960 PRINTTAB(22)"*
  554. 5970 [153][163]22)"*
  555. 5980 PRINT" [212]HE BASE IS? ";
  556. 5990 :US$="0123456789":UL=1:GOSUB35:W=VAL(UR$)
  557. 6000 IF W=4 THEN 6100
  558. 6010 PRINT
  559. 6020 R=R+1
  560. 6030 IF R=1 THEN 6080
  561. 6040 GOSUB 6860
  562. 6050 PRINT
  563. 6060 PRINT"[145]":GOSUB 6930
  564. 6070 PRINT"[145]";:GOTO 6100
  565. 6080 GOSUB 6190
  566. 6090 GOTO 5640
  567. 6100 PRINT" [212]HEN 7 IS THE? ";
  568. 6110 :US$="":UL=8:GOSUB35:E$=UR$
  569. 6120 IF E$="EXPONENT" THEN 6170
  570. 6130 D=D+1
  571. 6140 IF D=2 THEN 6880
  572. 6150 GOSUB 6190
  573. 6160 GOTO 5640
  574. 6170 GOSUB 7130
  575. 6180 RETURN
  576. 6190 GOSUB850:PRINT" [211]ORRY!         [212]HAT'S WRONG.":GOSUB530
  577. 6200 PRINT" [204]ET'S LOOK AT OUR EXAMPLE
  578. 6210 [153]" AGAIN.
  579. 6220 GOSUB830
  580. 6230 RETURN
  581. 6240 GOSUB850:PRINT" [210]EAD CAREFULLY, PAYING"
  582. 6250 PRINT" CLOSE ATTENTION TO THE
  583. 6260 [153]" EXPONENTS.
  584. 6270 PRINTTAB(4)"7
  585. 6280 [153][163]3)"7      4
  586. 6290 PRINTTAB(3)"--- = 7
  587. 6300 [153][163]4)"3
  588. 6310 PRINTTAB(3)"7
  589. 6320 [153]"
  590. 6330 PRINTTAB(4)"10
  591. 6340 [153][163]3)"4      1
  592. 6350 PRINTTAB(3)"--- = 4
  593. 6360 [153][163]4)"9
  594. 6370 PRINTTAB(3)"4
  595. 6380 [141]830
  596. 6390 [142]
  597. 6400 [141]850:[153]" (null)EAD CAREFULLY, PAYING"
  598. 6410 [153]" CLOSE ATTENTION TO THE
  599. 6420 PRINT" EXPONENTS."
  600. 6430 PRINTTAB(4)"3    6    9
  601. 6440 [153][163]3)"6  * 6  = 6
  602. 6450 PRINT"
  603. 6460 [153][163]5)"5    6     11
  604. 6470 PRINTTAB(2)"10  * 10  = 10
  605. 6480 [141]860:[141]830
  606. 6490 [142]
  607. 6500 [153]" DEF (null)HAT'S WRONG!LIST":[141]530
  608. 6510 [142]
  609. 6520 [153]" SYS (null)HAT'S RIGHT!LIST":[141]500
  610. 6530 [141]830
  611. 6540 [142]
  612. 6550 O[178]O[170]1
  613. 6560 [139] O[178]2 [167] 6590
  614. 6570 [141] 7410
  615. 6580 [142]
  616. 6590 [141] 6950:[141]830
  617. 6600 [141] 6880
  618. 6610 [142]
  619. 6620 [153]" (null)HAT'S WRONG. ":[141]530
  620. 6630 [153]" (null)EAD CAREFULLY."
  621. 6660 [153]"                 5
  622. 6670 PRINT" [201][198][160]2*2*2*2*2[160]=[160]2  ,
  623. 6690 [141]830
  624. 6700 [137] 1620
  625. 6780 [137] 1750
  626. 6790 [139] Y[178]1 [167] 6820
  627. 6800 [141] 6880
  628. 6810 [137] 1760
  629. 6820 [153]" (null)HAT'S WRONG AGAIN!":[141]530:[141]591
  630. 6830 [153]" (null)E'LL GO THROUGH THE
  631. 6840 PRINT" EXPLANATIONS AGAIN.":GOSUB560
  632. 6850 GOTO 1460
  633. 6860 PRINT"[150] [212]HAT'S NOT RIGHT![155]":GOSUB530
  634. 6870 RETURN
  635. 6880 GOSUB850:PRINT" [217]OU SEEM UNSURE OF YOURSELF.
  636. 6890 [153]" PEEKE SURE TO REVIEW THIS"
  637. 6900 [153]" SECTION WITH YOUR TEACHER."
  638. 6910 [141]830
  639. 6920 [142]
  640. 6930 [153]"SYS (null)HE CORRECT ANSWER IS 4.LIST""
  641. 6940 RETURN
  642. 6950 PRINT"[158] [212]HE MISSING EXPONENT IS 7.[155]"
  643. 6960 RETURN
  644. 6970 PRINT" [212]HIS TIME SUBTRACT THE EXPONENTS!"
  645. 6980 GOSUB830
  646. 6990 RETURN
  647. 7000 I=I+1
  648. 7010 IF I>1 THEN 7060
  649. 7020 GOSUB 7410
  650. 7030 RETURN
  651. 7060 PRINT"[158] [212]HE MISSING EXPONENT IS 3.[155]"
  652. 7070 GOSUB830:GOTO3020
  653. 7080 RETURN
  654. 7090 PRINTTAB(4)"3    4
  655. 7100 [153][163]3)"2  * 2
  656. 7110 PRINT
  657. 7120 RETURN
  658. 7130 IFR=2THENPRINT"[145]";:R=0
  659. 7131 PRINT"[158] [212]HAT'S RIGHT![155]":GOSUB500
  660. 7140 GOSUB830
  661. 7150 RETURN
  662. 7160 PRINT"[158] [212]HAT'S GOOD![155]":GOSUB500
  663. 7170 GOSUB830
  664. 7180 RETURN
  665. 7190 PRINT
  666. 7200 PRINTTAB(4)"5
  667. 7210 [153][163]3)"2     2*2*2*2*2
  668. 7220 PRINTTAB(3)"--- = ---------
  669. 7230 [153][163]4)"2
  670. 7240 PRINTTAB(3)"2     2*2
  671. 7250 [153]
  672. 7260 :
  673. 7270 [142]
  674. 7280 K[178]K[170]1
  675. 7290 [139] K[179][177]3 [167] 7350
  676. 7300 [153]
  677. 7310 [153]"SYS (null)HE ANSWER IS 8.LIST"
  678. 7320 [141]830
  679. 7330 [141] 6880
  680. 7340 [137] 2210
  681. 7350 [141] 7410
  682. 7360 [141] 7390
  683. 7370 [141]830
  684. 7380 [137] 2110
  685. 7390 [153]" (null)HIS TIME ADD THE EXPONENTS!
  686. 7400 RETURN
  687. 7410 PRINT"[150] [212]HAT'S NOT RIGHT![155]":GOSUB530
  688. 7420 PRINT" [215]E'LL TRY IT AGAIN. "
  689. 7430 PRINT" [200]INT!!"
  690. 7440 RETURN
  691. 7500 REM QUES 1 CURSORS
  692. 7510 ZH=19:Z3=5
  693. 7520 ZV=12
  694. 7530 GOTO 7600
  695. 7540 :
  696. 7550 REM QUES 2
  697. 7560 ZH=22:Z3=6
  698. 7570 ZV=6
  699. 7580 GOTO 7600
  700. 7590 :
  701. 7600 REM QUES CURSORS
  702. 7610 PRINTLEFT$(UD$,ZV)
  703. 7620 PRINTTAB(ZH);Z1$
  704. 7630 PRINTLEFT$(UD$,ZV+Z3)
  705. 7640 RETURN
  706. 7650 :
  707. 7700 REM NUMERIC CURSORS
  708. 7710 READ ZH,Z3,ZV
  709. 7720 GOTO 7600
  710. 7730 :
  711. 7740 DATA 15,5,7 :REM 1
  712. 7750 DATA 15,5,7 :REM 2
  713. 7760 DATA 17,5,7 :REM 3
  714. 7770 DATA 18,5,7 :REM 4
  715. 7780 DATA 23,5,7 :REM 5
  716. 7790 DATA 11,5,8 :REM 6
  717. 7800 DATA 12,5,8 :REM 7
  718. 7810 DATA 10,5,8 :REM 8
  719. 8000 REM WHC 90:12:06
  720.